home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / docs / lists / DevGuide.lha / DevGuide / MyOnlineUpdate.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-02-09  |  3.1 KB  |  48 lines
  1. /* Device Online Update Generating Script */
  2.  
  3.    Open("Dev","Ram:Dev-OnlineUpdate","R")
  4.    Open("HTML","Ram:Dev-OnlineUpdate.html","W")
  5.    writeln("HTML",'<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">')
  6.    writeln("HTML",'<meta name="GENERATOR" content="Online Device Update Form Generator 1.0">')
  7.    writeln("HTML",'<title>DevGuide Update Form</title>')
  8.    writeln("HTML",'</head><body bgcolor="#FFFFFF"><p align="center"> </p><form method="POST" action="http://209.140.94.126/cgi-bin/LDDSearch.cgi"><p align="center"> </p><div align="center"><center><table border="0" cellpadding="4" cellspacing="0" width="80%" bgcolor="#ECECEC"><tr><td align="center" valign="top" colspan="2" bgcolor="#C0C0C0"><font size="4"><strong>Welcome to the Online DevGuide Update Form</strong></font><strong><br>')
  9.    writeln("HTML",'</strong>Please go online, select a server for download and push the Search-Button.</td></tr><tr><td align="right" width="50%">Please select an Aminet-Server:</td><td width="50%"><select name="server" size="1">')
  10.    writeln("HTML",'<option selected value="1">http: USA</option>')
  11.    writeln("HTML",'<option value="2">http: Germany</option>')
  12.    writeln("HTML",'<option value="3">http: UK</option>')
  13.    writeln("HTML",'<option value="4">http: Italy</option>')
  14.    writeln("HTML",'<option value="5">http: Sweden</option>')
  15.    writeln("HTML",'<option value="6">http: Australia</option>')
  16.    writeln("HTML",'<option value="7">ftp: USA</option>')
  17.    writeln("HTML",'<option value="8">ftp: Germany</option>')
  18.    writeln("HTML",'<option value="9">ftp: UK</option>')
  19.    writeln("HTML",'<option value="10">ftp: Italy</option>')
  20.    writeln("HTML",'<option value="11">ftp: Sweden</option>')
  21.    writeln("HTML",'<option value="12">ftp: Australia</option>')
  22.    writeln("HTML",'</select></td></tr><tr><td align="right" width="50%"> </td><td width="50%"><input type="submit" name="B1" value="Search"></td>')
  23.    writeln("HTML",'</tr></table></center></div>')
  24.  
  25.    i=0
  26.    Do While 1
  27.       zeile=readln("Dev")
  28.       If Eof("Dev") then leave
  29.       i=i+1
  30.       writeln("HTML",'<INPUT type="hidden" name="Lib'||i||'" value="'||zeile'">')
  31.    End
  32.    writeln("HTML",'<INPUT type="hidden" name="Anzahl" value="'||i'">')
  33.    writeln("HTML",'<INPUT type="hidden" name="mode" value="update">')
  34.    writeln("HTML",'<INPUT type="hidden" name="type" value="dev">')
  35.    Open("lang","ENV:language","R")
  36.       language=readln("lang")
  37.    Close("lang")
  38.    If language="deutsch" then
  39.       writeln("HTML",'<INPUT type="hidden" name="lang" value="ger">')
  40.    else
  41.       writeln("HTML",'<INPUT type="hidden" name="lang" value="eng">')
  42.  
  43.    writeln("HTML",'</form><p>')
  44.    writeln("HTML",'<p align="center"><font size="2">DevGuide is © 1996-1999 by </font><a href="mailto:age@thepentagon.com"><font size="2">Heiko Schröder</font></a><font size="2"><br>DevSearch is © 1998 by </font><a href="mailto:gaspode@cyberjunkie.com"><font size="2">Peter Teich</font></a><font size="2">, </font><a href="mailto:documedia@leipzig-info.net"><font size="2">docu:media</font></a><font size="2"> made with Perl 5.004</font></p></body></html>')
  45.    Close("Dev")
  46.    Close("HTML")
  47. Exit
  48.